home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / Misc / FLM / otherfiles / english / ARexx / golded_look.rexx < prev    next >
OS/2 REXX Batch file  |  2000-01-01  |  1KB  |  41 lines

  1. /* Script which allows to send a word from GoldEd to FLM
  2.  
  3.    To call this script automatically from GoldEd, follow the following
  4.    steps:
  5.  
  6.    1. Start GoldEd and start "Keyboard..." in menu "Config".
  7.    2. In the following window select "Record", and then press a key
  8.       combination by which later you'll be able to call FLM. E.g. Ctrl+F10.
  9.    3. In the following window select "Add".
  10.    4. On the right, you must now select ARexx, and then the gadget on the
  11.       right near to "Add". In the following filerequester, select this file
  12.       ("golded_look.rexx").
  13.    5. Now click "Ok" and "Save".
  14.  
  15.    Now test just once if all this worked. If all is OK, now you should be
  16.    able e.g. to open the "FLM ARexx Dictionary" through Ctrl+F10.
  17.  
  18. -> Warning: The program RexxMast must be active !!!
  19. */
  20.  
  21. /* Here indicate, please, the FLM path and program name */
  22. initiation=run "dh0:FLM/FLM"
  23.  
  24. Options RESULTS
  25.  
  26. IF ~show('P','FLM') THEN DO
  27.  /* if FLM is not yet running */
  28.  ADDRESS COMMAND initiation
  29.  ADDRESS COMMAND "SYS:RexxC/WaitForPort FLM"
  30. END
  31.  
  32. LOCK CURRENT /* Lock window for a short while */
  33.  
  34. QUERY WORD /* Word under the cursor in variable RESULT */
  35.  
  36. a=RESULT /* Contents of RESULT in a */
  37.  
  38. UNLOCK /* Unlock window again */
  39.  
  40. Address FLM LOOKWORD a /* Contents of variable a to FLM */
  41.